home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / unclcarl / colortxt / colortxt.lst < prev    next >
File List  |  1995-04-25  |  2KB  |  62 lines
  1. rez%=XBIOS(4)   !Current resolution 0=LOW,1=MED,2=HIGH
  2. IF rez%=1
  3.   CLS           !CLear Screen
  4.   a$="Medium Resolution Available Options - Please select a number..."
  5.   bla=LEN(a$)
  6.   ' TAB((80-LENgth of a$)/2) <-centers text
  7.   PRINT AT(1,1);TAB((80-bla)/2);CHR$(27)+"b"+CHR$(3);a$
  8.   PRINT AT(1,2);
  9.   PRINT AT(1,3);CHR$(27)+"b"+CHR$(1);"Colour 1"
  10.   PRINT AT(1,4);CHR$(27)+"b"+CHR$(2);"Colour 2"
  11.   PRINT AT(1,5);CHR$(27)+"b"+CHR$(3);"Colour 3"
  12.   ' CHR$(27)+"b"+CHR$(c); -> Chooses c as text colour
  13. wilbur_2:
  14.   PRINT AT(1,6);CHR$(27)+"b"+CHR$(3)
  15.   INPUT a     !INPUT the number
  16.   IF a<=0 OR a=>4
  17.     GOTO wilbur_2
  18.   ENDIF
  19.   PRINT CHR$(27)+"b"+CHR$(a)     !Engage new colour
  20.   PRINT "That should do it..."
  21.   PAUSE 25
  22.   END
  23. ELSE IF rez%=0
  24.   CLS
  25.   FOR i=1 TO 15
  26.     PRINT AT(1,i);CHR$(27)+"b"+CHR$(i);"Colour ";i
  27.   NEXT i
  28. wilbur:
  29.   PRINT AT(1,16);CHR$(27)+"b"+CHR$(15)
  30.   INPUT a
  31.   IF a<=0 OR a=>16
  32.     GOTO wilbur
  33.   ENDIF
  34.   PRINT CHR$(27)+"b"+CHR$(a)
  35.   PRINT "That should do it..."
  36.   PAUSE 25
  37.   CLS
  38.   END
  39. ELSE
  40.   CLS
  41.   PRINT AT(1,1);CHR$(27);"q"
  42.   a$="High Resolution Available Options - Please select a number..."
  43.   bla=LEN(a$)
  44.   ' CHR$(27)+"p";  p=turn on inverse text, q=turn off inverse text
  45.   PRINT AT(1,1);TAB((80-bla)/2);CHR$(27)+"b"+CHR$(3);a$
  46.   PRINT AT(1,3);CHR$(27);"q";"Normal  1"
  47.   PRINT AT(1,4);CHR$(27);"pInverse 2";CHR$(27);"q"
  48. harry:
  49.   PRINT AT(1,6)
  50.   INPUT a
  51.   IF a=1
  52.     a$="q"
  53.   ELSE IF a=2
  54.     a$="p"
  55.   ELSE
  56.     GOTO harry
  57.   ENDIF
  58.   PRINT AT(1,9);CHR$(27);a$;" That should do it... "
  59.   PAUSE 25
  60.   END
  61. ENDIF
  62.